home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 10 / book14.zip / BOOK14.QM < prev   
Text File  |  1990-09-07  |  10KB  |  223 lines
  1. *                        (BookMarker) BOOK14.QM
  2. * ┌────────────────────────[ Index of Macros ]─────────────────────────────────┐
  3. * │(Alt_1)- Finds first word on cursor line "marked" in the document below     │
  4. * │(Alt_2)- Finds first word on cursor line in document below, "marked" or     │
  5. * │        "unmarked", and places () around selected found word in document    │
  6. * │(Alt_3)- Puts word @ cursor in Index with () around word and word in Index  │
  7. * │(F4)   - Continues until the desired word & location are found using Alt_2  │
  8. * │                                                                            │
  9. * │(Description)    - BookMarker Macros                                        │
  10. * │(Using) Macros   - Start up and Macro Execution                             │
  11. * │(Macros)         - BookMarker Macros                                        │
  12. * │(Other) Macros   - not included                                             │
  13. * │(Version) history                                                           │
  14. * └────────[ be sure to leave at least one blank line at end of Index ]────────┘
  15.  
  16.  
  17. * (Description):
  18. *
  19. *        BookMarker BOOK14.ZIP is a series of four macros to place ()
  20. *        around selected words in QEdit documents as bookmarks. A bookmark
  21. *        can then be quickly located from an index of book-marked words
  22. *        (also prepared with these macros) at the top of the document by
  23. *        pressing Alt_1.
  24. *
  25. *        Of the many macros I use regularly, Alt_1 is probably the one
  26. *        I use most. It has become so important I could not maneuver
  27. *        without it. Documents I use regularly are Indexed with either
  28. *        Alt_2 or 3. I can quickly get to where I want to be in a
  29. *        document or a help file by entering Alt & 1 at the same time,
  30. *        placing the cursor on the line in an Index I want to locate in
  31. *        the document, and then pressing Enter. Presto, I'm there
  32. *        without having to scroll through the document.
  33. *
  34. *
  35. * (Using) Macros:
  36. *
  37. *       To execute these macros, be sure Insert is ON and then:
  38. *       1. Place BOOK14.MAC and BOOK14.QM in the current directory.
  39. *       2. Load  BOOK14.QM into a QEdit window.
  40. *       3. Read the macfile BOOK14.MAC as follows:
  41. *                Esc
  42. *                M
  43. *                R
  44. *                BOOK14.MAC
  45. *                Enter
  46. *       4. Press ALT and 1 at the same time and proceed as
  47. *       described below.
  48. *
  49. *       These macros may also be placed in your QCONFIG.DAT file to be
  50. *       continually available.
  51. *
  52. *
  53. * (Macros):
  54. *
  55. *┌───────────────────────────────────────────────────────────────────┐
  56. *│(Alt_1) Finds first word on cursor line marked in document below   │
  57. *└───────────────────────────────────────────────────────────────────┘
  58. *
  59. *        Alt_1 macro has 2 steps:
  60. *
  61. *        1. Press Alt and 1 at the same time. An ! shows at the
  62. *        end of the top line. Cursor down to desired line in Index.
  63. *
  64. *        2. Press Enter. The macro first erases the !, and
  65. *        then finds the first word on the cursor line in the document
  66. *        below marked with (...).
  67. *
  68. *
  69.  
  70. @1 macrobegin
  71.         unmarkblock                     * unmark any marked blocks
  72.         begfile endline                 * go to file begin endline
  73.         "!"                             * put ! at endline
  74.         begline
  75.         find "!" return return begline  * highlight !
  76.         pause                           * pause for Index selection
  77.         wordright markword              * mark first word on line
  78.         copy                            * copy word to scrap buffer
  79.         begfile                         * begfile
  80.         find "!" return return delch    * find & delete !
  81.         endpara                         * go to end of Index
  82.         makectrofscreen                 * cursor line center of window
  83.         find "(" paste ")"
  84.         return "I" return               * find first marked word in doc
  85.  jfalse NOMARK:
  86.         begline                         * if mark found go to begline
  87.  jump END:
  88.  NOMARK:
  89.         begfile                         * if no mark found go to begfile
  90.  END:
  91. *
  92. * 47 bytes Sat  07-28-1990  15:17:42
  93. * 47 bytes Fri  09-07-1990  09:21:00 changed down arrow to !
  94.  
  95.  
  96.  
  97. * This macro is 47 bytes. You may want to load this shorter version
  98. * (19 bytes) without the !, and marker searching starts from cursor
  99. * line in Index down, not at the end of the Index as above:
  100.  
  101. * @1 macrobegin
  102. *        unmarkblock                    * unmark any marked blocks
  103. *        begfile                        * go to file begin endline
  104. *        pause                          * pause for Index selection
  105. *        wordright markword             * mark first word on line
  106. *        copy                           * copy word to scrap
  107. *        find "(" paste ")" return      * find first marked word in doc
  108. *        return
  109. *        begline                        * if mark found go to begline
  110. *
  111. * 19 bytes Fri  09-07-1990  18:52:09
  112.  
  113.  
  114.  
  115.  
  116. *┌─────────────────────────────────────────────────────────────────────────────┐
  117. *│(Alt_2) Finds word in document, adds () to found word and returns to Index   │
  118. *└─────────────────────────────────────────────────────────────────────────────┘
  119. *
  120. *      Alt_2 macro has 3 steps:
  121. *
  122. *       1. Press Alt and 2 at the same time. The macro finds first word
  123. *       on the cursor line in the document below. If first found word
  124. *       is not the desired occurrence, press F4 for next word or until
  125. *       the desired occurrence is found.
  126. *
  127. *       2. When the desired word and location are found, press Enter.
  128. *       The macro places () around desired found word and then return
  129. *       to the original word in the Index.
  130. *
  131. *       3. Press Enter again and the macro places () around the original
  132. *       word in the Index. The cursor ends at end of the marked word in
  133. *       the Index so comments may be added. Be careful not to mark the
  134. *       same word more than once or only the first occurrence of the word
  135. *       in the document will be found with Alt_1.
  136. *
  137. @2      macrobegin                      *
  138.         wordright markword              * mark first word on line
  139.         copy                            * copy word to scrap
  140.         find paste return return        * find first word in doc
  141.         pause                           * pause for Enter or F4
  142.        "("                              * place ( in front of word
  143.         markword                        * markword
  144.         gotoblockend ")"                * place ) at end of word
  145.         pause                           * pause for Enter if OK
  146.         begfile                         * go to file begin
  147.         find paste return return        * find selected word doc
  148.         pause                           * pause for Enter if OK
  149.         markword                        * markword
  150.         gotoblockbeg "("                * place ( in front of word
  151.         gotoblockend ") "               * place ) at end of word
  152.         unmarkblock                     * unmark word
  153. *
  154. * 35 bytes Sat  07-28-1990  15:17:55
  155.  
  156.  
  157. *┌─────────────────────────────────────────────────────────────────────────────┐
  158. *│(Alt_3), Puts word @ cursor in Index with () around marked word and in Index │
  159. *└─────────────────────────────────────────────────────────────────────────────┘
  160. *
  161. *        Alt_3 macro has 2 steps:
  162. *
  163. *        1. Press Alt and 3 at the same time. Macro marks the word at the
  164. *        cursor in the document, then returns to the the end of the Index.
  165. *        The marked word in the document is then copied at the end of the
  166. *        Index with () around it. The cursor is at end of word so
  167. *        comments may be added in the Index.
  168. *
  169. *        2. Press Enter and the cursor returns to the beginning of
  170. *        the line of the marked word in the document.
  171. *
  172. @3      macrobegin                      *
  173.         markword                        * mark word at cursor
  174.         gotoblockbeg "("                * place () around word
  175.         gotoblockend ")"                *
  176.         copy                            * copy word and ) to scrap
  177.         begfile                         * go to file begin
  178.         endpara return                  * go to end of Index
  179.         paste                           * paste word and )
  180.         begline "* (" endline " "       * insert "* (" in front of word
  181.         unmarkblock makebotofscreen     * unmark word and ()
  182.         pause                           * pause for comments and if OK
  183.         begline wordright markword      * mark word
  184.         copy                            * copy word to scrap
  185.         find "(" paste ")"  return      * return to word in doc
  186.         return
  187.         begline                         * go to line begin
  188. *
  189. * 42 bytes Sat  07-28-1990  15:18:04
  190.  
  191.  
  192. *┌────────────────────────────────────────────────────────────┐
  193. *│(f4) Continues until desired word is found using Alt_2      │
  194. *└────────────────────────────────────────────────────────────┘
  195. *
  196. *       (see Alt_2 for use)
  197. *
  198. f4      repeatfind                      * repeat find until desired word
  199.                                         *  & location are found
  200. * 5 bytes Sat  07-28-1990  15:18:17
  201.  
  202.  
  203. * (Other) Macros: See ALLMACRO.INF
  204. *
  205.  
  206. * (Version) History:
  207. *
  208. *   1.0 - initial
  209. *   1.1 - changed document
  210. *   1.2 - modified Alt_1 to keep normal cursor line color before selecting
  211. *         an indexed word. Macro now does not find marked words in Index.
  212. *   1.3 - changed document BOOK13.QM
  213. *   1.3a- Changed other file names in series, this is an update.
  214. *   1.4 - Changed down arrow #25 to ! in @1.
  215. *       - Changed .lst and .ql
  216.  
  217. * (QEdit)    is not a marked Index word
  218. * (unmarked) is not a marked Index word
  219. * (be)       is not a marked Index word
  220. * (window)   is not a marked Index word
  221. *
  222. *...Tom Hogshead  Fri  09-07-1990  18:54:38
  223.